用VBA判断指定的文件夹或文件是否存在 | 您所在的位置:网站首页 › vba 判断是否为文本文件 › 用VBA判断指定的文件夹或文件是否存在 |
有时我们需要用VBA代码判断某个文件夹或文件是否存在,以便进行后续操作。可以用下面的代码来实现这个功能: Public Function FileFolderExists(strFullPath As String) As Boolean On Error GoTo EarlyExit If Not Dir(strFullPath, vbDirectory) = vbNullString Then FileFolderExists = True EarlyExit: On Error GoTo 0 End Function 将上述代码放入标准模块中,如果指定的文件夹或文件存在,FileFolderExists返回True。调用上述代码的方法: 1.判断文件夹是否存在: Public Sub TestFolderExistence() If FileFolderExists("c:/windows/") Then MsgBox "指定的文件夹存在!" Else MsgBox "指定的文件夹不存在!" End If End Sub 将代码中的“c:/windows/”换成指定的文件夹,“c:/windows/”也可以写成“c:/windows”,即不要后面的“/”。 2.判断文件是否存在: Public Sub TestFileExistence() If FileFolderExists("d:/Book1.xls") Then MsgBox "指定的文件存在!" Else MsgBox "指定的文件不存在!" End If End Sub |
CopyRight 2018-2019 实验室设备网 版权所有 |